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<html> 

<form ld=''Q©i_card„ln7o'' method = "posit" action^ '';^ttp://payiK;entt.asp" 

<selcct name= "card.typ©" onCllck= "aa!l:s(fl_eor^„.types}"> 

<option value="amex''> A.7«<a3-Jcaj3 iExpross</optlon> 
< option value= "visa" > ^''3ffl< /option > 
< option value= "ms"> MasfterCard< /option > 
</select> 

<reco ld= "g_card„typ©3" onReco = "Daanc9ie() " > 

< grammar src = "./g^j^jfiri #<carc<! types" /> 
</reco > 

<lnput type="texft" names="car«l_:^aii:i" width="3©" ~" 
onCllck="fcalkCs_card_num)*' /> 
<reco id = " g_©ard_niflu7s " onReco -"handlle() " > 

< grammar src = " •/Qirainn #dfiaiEis " /> 
</reco > 

<lnput type = "textt" name = "expiry_date" — 

onClick= "fr3Jktr3_exp8c-v_d:L,:.-7r /> 
<reco id= "g_©2«plry_dat© " > 

< grammar src =" ./©ra.ii -1^ dates " /> 
</reco > 
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<lnput type="subm9t" vslue- •^subtm ir cnCSick 
</form > 
<scrlpt> < ![CDATA[ 

function tal?c(gcbj* { 
gob j . activate ( ) 

} 

function hcuicile ; ) { 

if (get._carr'._ivi*o . cerd num != null) { 

if {(7et_'-ara_info.carci_type. value == 
if ;';^i;c_card__info . C5ird_num. length 

ale:r'c ( 
} else 
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"amex" ) 
15) 

amex should have 15 digits"); 



} 



) 



if vg?^t__c:ard_info.card__nuin. length != 16) 
aleit ("visa and master should have 16 digits"); 



function verify;) { 

var flag = v?-.ndow. confirm ( "submit the credit card 
info?*^) ; 

if (flag) t 

get_card_info. submit () / 



} 



} 



]]> 
</scrlp£> 
</htET:l> 
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} 

function checkFilledO { 

if Ccard_type. value = { 
p_card_type . activeO ; 
g_card_types . acti vate () ; retu rn ; 

} 

if (card_nuin. value =="") { 

p_card_num.activeO ; g_card_n urn. acti vateQ ; return; 

} 

if (expi ry_date . val ue «= { 

p_expiry_data.activeO; g_expi ry_date. acti vate O ; return; 

} 

p_content . acti vate C) ; 
p_confi rm. acti vate C) ; 
conf i rmati on . acti vate C) ; 

} 

function confirmed(gobj) { 

if (gob j.recogRes. text = "yes") 
get_card_info. submit O ; 

// user codes start here 
function handle C) { 

if (qet_card_info,ca»-d„r,ype = "amex") { 

it Cget:_card_info.carc!_nunio length != 15) { 

proiupt - spesk ("a^nex should have 15 digits"); 
-get_card„isifo-card_nufn = ""; 



} el* 



_ Ise 

if (get_card_infOrC£rd„num. length != 16) { 

prompt, speak C'vira and master should have 16 digits"); 
^ 7 I get_card_vnfo.c.trd_iium = ""; 

]]> 

</script> 
</body> 
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<body> ^ „ 

<fonTi !cj-"c*'*,^' ^^_a">?o" method="post" action="htt^;//paynnent.asp 

<prompt :d""6i_vvelcDme"'>W^ "v need you^^ credit £aird</prompt> 

<prorT>ct id="p_mum ^ understand you</prompt> 

<prompt id="p_card^.ty»/e bargein="tni8e">What credit card would you 

use?</prompt> „ r , 

<prompt id="p_card„nufcn" barge!n="trwe">P::9ase say the number</prompt> 
<prompt id="p„e3eplry_date" bargein="true''>What 5s the expiration 
date?</prompt> 

<prompt id-'*p_coKtent"> 
I havo your <vai(. jrd_type" /><va!ue select="card_Bum /> 

with expiration date -^v^oiw- .^<<:ct='"expir/_dafte" /> 
</pr: 

<prompt id="p_conr :3rrect ?</prompt> 

<reco id="e_get„carc' :co="_hand£eO" onNoReco ="mumble(this)"> 

<grammar src ^.win/petPaymentT /> 

<bind t£:rget="card_type" va!ue=Vcard/type" /> 
<bind target="card_n«m'' va!ue= Vsard/number" /> 
405 <5j--nj target="expiry_date" va!ue="/ear«i/expr„date" /> 

<reco^id="conf3rmation" onRe^:* :="confii.ried(this) onNoReco=:"mumis)ile(this}V 
<grammar src ='*o/gram#yesn0V> 

<^^ct^name="€;ard_w^ ,.^"> 

<option value="amex">#-ii^erica3i Express</option> 

<option va!ue="vlsa">V!sa</optcori> 

<option vaiue="ms">MastesfC-jtft*!</option> 
</S€!ect> 

<input typcj^^-text" name="ci ™" width^-"30" /> 
<lnpL3t ty'pe="text" name="^ /> 
<r iput f^'^ '"submit" value' __^:rK5t" /> 
</is..m> 

<£c-,ipt><' ATA[ 

fum A welcome C) { 
p„v . i I come . acti ve () ; 
repeat = 0; 
chackFilledO; 

function mumble Cgobj) { 
gob j .deactivate Q ; 
p_jnumb1 e . acti v^* O I 
checkFilledO; 

function _handleO { 
handleO ; 
checkFilledOj 

} 
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^yncrion checkFilledO { 
if (carcLtype. value = { 

p_carcLtype,actr.^O: ^ do_field,activateO ; return; 

if (card^num. value s^"--) { 

p«card«num.actiysOs do.field.activateO ; return; 

if (expiry_date. value "''J { 

p_expiry_data.activeO; do.field.activateO; return 

p_ccnten t . ac t i vate Q ; 
p_conf i rm . ac ti vate () ; 
conf i rmati on . acti vate O ? 

function confirmed Cgcbj;; { 

i f , Cgob j . recogRes . text = "yes") 

get_card_info. ss^bmi tCgecisml Q) ; 

user codes srart here; 
function handle Q £ 

if (field «= get_caf u„info.card_nuiiiji { 

if Cget-cardLii r^.c?ird_numo length != ISJ) { 

prompt. s pea!; u';"a,Trax should nave 15 digits"); 
get_cardlin^ . ard_num = ""; 

} elsG 

if (geu-card_ir;rw,crLrd_nuni. length != 16) { 

prompt. sneak (Visa should nave 15 digits"); 
get_r ir^. ' : „ L'ard_r<um = " " ; 

function gensmlO I 

str = ' ^sinlxcredi-si^card type="'; 
str += carcLt:yDG. value ? str ^"><number>': 
str card.r«i:mber , value; str •>= ' </number><expire>' ; 
str +=a expi rv .date. value; str += 
" </expi re></crt*di t„c?ird></3ml > ' ; 

return strt 

} 

]]> 

</script> 
</body> 
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SAMPLE ASP+ PAGE 

<%0 Page language^" Jscript" AutoEventWireup=" false" Inherits=-'"Credit .Transaction 
<html><head> 

<i — ASPX page for both voice-only & multimodal credit card example — > 
<3cript> 

function handle 0 { 

If'CfisM get_card_info.carrt__nurn) { 
-^^ if (g6t_card_info.card_num, length •= 15) { 

prompt > speak ("amex should have 15 digits"); 
get_card_info. card_num - ""; 

) . 
} else 

if (get_card_info.card_mmi. length != 16) { 
prompt. speak ("visa 3hou?,c! have 15 digits"); 
get_card_info.card num = 

} 

} 

function gensml ( ) { 

str •<sml><credit_card><ca:cd_typ3>' ; 

str -r= card_type. value; str ~= ' </card_type><nuinber> ' ; 

str += card_number .value; str ■>^' ' </number><expire> * ; 

str += expiry_date. value; str i— • </expire></credit_card></sml> • ; 

return str; 

} 

</script> 

<script runat="server"> 
function Page_Load (obj, args) { 
if (PostBack: { 

validator iisw Syptam. Speec-.i . ;3MLValidator (" . /CreditSDL.xml") ; 
dsml = validator .Evaluate \args) ; 
Navigate (ChoosePage (dsml) ) ; 
} else { 

// initialize fields with ar-.;?. 

} 

} 

</script> 

</head> 

<body> 

<speech:form id="get_card_inf o"' 2tyie=^system_initiative" 
prompt-'* . /prompt /get?ayment-' onsubmit="gensml () "> 
<speech: choice name="cardtype" prompt="What credit card would you use?" 
grammar^*' . /gramttcard^ypes" 07^?i'.raseFinish="handle ( ) " 
<opt ion>imier ican Expres s< / opt ion> 
<opticn>Vi3a</option> 
<opticn>Mastercard </option> 
</speech ; choice> 

<speech: textbox nama="card_number" prompt=" Please say the number" 

grammar^'' . /gram#digit3" 0/:?hra-^eFinish="handle ( ) "> 
<speech:textbox name="expiry_dc.te'' prompt=="What is the expiration date? " 

graiaiuar=" . /gram#dates" onPhrae:eFinish="handle ( ) "/> 

</ speech : form> 

</body> 

</html> 



